home *** CD-ROM | disk | FTP | other *** search
/ Exploring Where & Why / Exploring Where & Why.iso / pc / Lib.cst / 00068_DirectionArrowsTarget.ls < prev    next >
Encoding:
Text File  |  2004-07-11  |  2.9 KB  |  138 lines
  1. --
  2. -- DirectionArrows
  3. --
  4.  
  5. -- this class handles all runtime game management.
  6.  
  7. -- constants:
  8. property delaySecs  -- the number of seconds we delay before moving on to the next round
  9.  
  10.  
  11. property ancestor
  12. property responseFlag
  13. property activeSpr
  14. property startPoint
  15.  
  16. global gUI
  17.  
  18.  
  19. on new me
  20.   -- initialize constants:
  21.   set delaySecs = 1
  22.   
  23.   set ancestor = new (script "DirectionSprite")
  24.   
  25.   set responseFlag = TRUE
  26.   set startPoint = point (320,240)
  27.   set checkByDirectionFlag = FALSE
  28.   
  29.   -- add (the actorList, new (script "ObjectUpdater", me))
  30.   return me
  31. end
  32.  
  33.  
  34. on destruct me
  35.   if objectP (ancestor) then destruct (ancestor)
  36.   set ancestor = 0
  37. end
  38.  
  39.  
  40. on noResponse me
  41.   set responseFlag = FALSE
  42. end
  43.  
  44.  
  45. on initializeRound me
  46.   hideDraggables (me)
  47.   initializeRound (ancestor)
  48.   showDraggables (me)
  49.   pushOffDraggables (me)
  50.   -- initHandCursor ("hand", getDraggableList (me))
  51.   initPlay (me)
  52. end
  53.  
  54.  
  55. on mouseDown me, spr
  56.   -- watch hardwired direction arrows:
  57.   if spr < 25 or spr > 28 then return 0
  58.   
  59.   -- set up for movement:
  60.   puppetSprite spr, TRUE
  61.   set the memberNum of sprite spr to the memberNum of sprite spr + 1
  62.   set currName = the name of member the memberNum of sprite activeSpr of castLib the castLibNum of sprite activeSpr
  63.   
  64.   -- do the arrow action before checking for match:
  65.   case spr of
  66.     25: set dir = #up
  67.     26: set dir = #down
  68.     27: set dir = #right
  69.     28: set dir = #left
  70.     otherwise return 0
  71.   end case
  72.   
  73.   -- actual movement:
  74.   set testSprite = move (me, activeSpr, dir)
  75.   
  76.   -- clean up after movement:
  77.   set the memberNum of sprite spr to the memberNum of sprite spr - 1
  78.   updateStage
  79.   puppetSprite spr, FALSE
  80.   updateStage
  81.   
  82.   set matchSprite = checkMatch (me, activeSpr, testSprite)
  83.   hideUnderSprite (me)
  84.   
  85.   if matchSprite then
  86.     -- play the good response sound
  87.     if responseFlag then playResponseSound(1, 1)
  88.     -- play the proper "ID" sound
  89.     playSprite (gUI, activeSpr, #ID)
  90.     -- if so, move the draggable off the screen and animate the 'hit' container:
  91.     hideDraggable (me, activeSpr)
  92.     
  93.     animateSprites (me, [matchSprite])  -- animate the matching sprite
  94.     
  95.     -- move a bar graph if one has been set up:
  96.     moveGraph (me, the name of member the memberNum of sprite matchSprite of castLib the castLibNum of sprite matchSprite)
  97.     
  98.     updateStage
  99.     if not done (me) then 
  100.       initPlay (me)
  101.     end if
  102.     
  103.   else
  104.     nothing
  105.   end if
  106.   
  107.   return 1
  108. end
  109.  
  110.  
  111.  
  112. -- initialize an individual play:
  113.  
  114. on initPlay me
  115.   set activeSpr = pushOnDraggable (me)
  116.   set startPoint = the loc of sprite activeSpr
  117.   updateStage
  118.   makePictLink (me, activeSpr)
  119.   -- play the intro sound by sprite...
  120.   playSprite (gUI, activeSpr, #prompt)
  121.   -- initHandCursor ("hand", getDraggableList (me))
  122. end
  123.  
  124.  
  125.  
  126. -- check to see if we are done.  
  127. -- if so, then do an action.
  128.  
  129. on done me
  130.   clearPictLink (me)
  131.   if checkDone (me) then 
  132.     wait (me, delaySecs)
  133.     go "finish"
  134.     return 1
  135.   else
  136.     return 0
  137.   end if
  138. end